<script>on enterkey-- capture enter keyend enterkeyon deleteCurrentCardlock screendoMenu "Delete Card"unlock screenend deleteCurrentCardon MyPop cardidrepeat until the name of this card is cardidpop cardend repeatend MyPopfunction getforeignbkgndsput empty into fbackPopput number of backgrounds into numrepeat with rr = 1 to numif rr is 1 thenget short name of background rr-- if it is empty then get the long name of background rrput it&"[checkmark]" after fbackpopelseget short name of background rrput it&"[]" after fbackpopend ifend repeatreturn fbackpopend getforeignbkgnds-- function getbackflds fbackgnd,ignores-- set cursor to busy-- if fbackgnd contains "bkgnd id" then-- do "go to first card of "& fbackgnd-- else-- do "go to first card of bkgnd ""e&fbackgnd"e-- end if-- put number of background fields into numbgfields-- put number of items in ignores into numigs-- put empty into bgfldname-- repeat with rr = 1 to numbgfields-- put short name of bg fld rr into tempfld-- repeat with ss = 1 to numigs-- put item ss of ignores into tempignore-- if tempfld contains tempignore then-- exit repeat-- else-- if ss = numigs then-- put short name of bg fld rr & "," after bgfldname-- end if-- end if-- end repeat-- end repeat-- sort items of bgfldname-- put number of items of bgfldname into temp-- put replace(",","[]",bgfldname) into bgfldname-- put temp&"None[checkmark]" before bgfldname-- return bgfldname-- end getbackfldsfunction getbackflds fbackgnd,ignoresset cursor to busyif fbackgnd contains "bkgnd id" thendo "go to first card of "& fbackgndelsedo "go to first card of bkgnd ""e&fbackgnd"eend ifput number of background fields into numbgfieldsput number of items in ignores into numigsput empty into bgfldnamerepeat with rr = 1 to numbgfieldsput short name of bg fld rr into tempfldif numigs = 0 then -- ***put short name of bg fld rr & "," after bgfldname -- ***else -- ***repeat with ss = 1 to numigsput item ss of ignores into tempignoreif tempfld contains tempignore thenexit repeatelseif ss = numigs thenput short name of bg fld rr & "," after bgfldnameend ifend ifend repeatend if -- ***end repeatsort items of bgfldnameput number of items of bgfldname into tempput replace(",","[]",bgfldname) into bgfldnameput temp&"None[checkmark]" before bgfldnamereturn bgfldnameend getbackfldson ChooseAllFields Listname,fieldidput replace("None[checkmark]","",listname) into tempput replace("[]",",",temp) into temprepeat with rr = 1 to (number of items of temp)do "put item rr of temp into line rr of "&fieldidend repeatend chooseAllFieldsfunction readfile textfile, endcharput empty into temprepeat until (chartonum(last char of temp) = chartonum(endchar))read from file textfile until endcharif (it is empty) and (temp is empty) then exit repeatif it Γëá return then put it after tempend repeatreturn tempend readfile</script>
